home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / Reflections4De.lha / Ref4Demo / skripte.lha / objekte.men < prev    next >
Text File  |  1996-02-13  |  490b  |  27 lines
  1. REFSKRIPT
  2. GET_AUSWAHL Welches_GrundObjekt pyramide pyramiden_stumpf kegel_stumpf
  3. RETURN_IF_ABBRUCH 0
  4. GET_RESULT res
  5. IF_STR_EQUAL_GOTO res pyramide x_pyra
  6. IF_STR_EQUAL_GOTO res pyramiden_stumpf x_pyrastu
  7. IF_STR_EQUAL_GOTO res kegel_stumpf x_kegelstu
  8. RETURN 0
  9. >x_pyra:
  10. CALL pyramid.skr
  11. GET_RESULT obj
  12. GOTO fert
  13. >x_pyrastu:
  14. CALL pyrastu.skr
  15. GET_RESULT obj
  16. GOTO fert
  17. >x_kegelstu:
  18. CALL kegelstu.skr
  19. GET_RESULT obj
  20. GOTO fert
  21. >fert:
  22. PKL_NEU obj
  23. PLOT_SCHRAEG
  24.  
  25.  
  26. RETURN obj
  27.